home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Utilities Experience
/
The Utilities Experience - Volume 1.iso
/
software
/
demos
/
r-z
/
twistdemo
/
aminet
/
locateviewer
< prev
next >
Wrap
Text File
|
1995-03-17
|
425b
|
20 lines
/**
* $Id$
*
* Extract Aminet archives
*
* Copyright © 1995 HiSoft. All Rights Reserved.
**/
OPTIONS RESULTS
ADDRESS Twist
PARSE ARG dbfilename,rela_x,rela_y,shiftkeys
OPEN "Twist:AminetBase/Viewer.DB"
options results
ADDRESS COMMAND 'setenv aminetviewer `RequestFile SYS: TITLE="Select a the viewer file"`'
x = open('input','env:aminetviewer','R')
VIEWERPATH = readln('input')
SETDBFORMFIELD "ViewerPath" VIEWERPATH